home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / bbs / FList_211.lha / FList / Rexx / FListChkMrk.Trans < prev    next >
Text File  |  1997-04-05  |  911b  |  64 lines
  1. /**/
  2. options results
  3. path="BBS:Extras/FListSaveDL/"
  4. userinfo 'a'
  5. name=result
  6. userinfo 'x'
  7. ansi=result
  8.  
  9. if ansi="ON" then do
  10.     up="A"
  11.     lclr=""
  12.     red=""
  13.     grn=""
  14.     yel=""
  15.     blu=""
  16.     mag=""
  17.     cyn=""
  18.     wht=""
  19.     bred=""
  20.     bgrn=""
  21.     byel=""
  22.     bblu=""
  23.     bmag=""
  24.     bcyn=""
  25.     bwht=""
  26.     bld=""
  27.     ubld=""
  28.     fsh=""
  29.     clr=""
  30. end
  31. else do
  32.     up=""
  33.     lclr=""
  34.     red=""
  35.     grn=""
  36.     yel=""
  37.     blu=""
  38.     mag=""
  39.     cyn=""
  40.     wht=""
  41.     bred=""
  42.     bgrn=""
  43.     byel=""
  44.     bblu=""
  45.     bmag=""
  46.     bcyn=""
  47.     bwht=""
  48.     bld=""
  49.     ubld=""
  50.     fsh=""
  51.     clr=""
  52. end
  53.  
  54. if exists(path||name".sdl") then do
  55.     newline
  56.     sysoplog "          User has marked files left over!"
  57.     queryy clr||bld||blu"["cyn"FList"blu"]"wht" You have marked files saved! - View/edit/re-mark these?"clr
  58.     if upper(result)="Y" then do
  59.         sysoplog "          Remarking in progress..."
  60.         call 'bbs:rexx/FListRemark.trans'
  61.     end
  62.     newline
  63. end
  64.